home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / Install / program files / Borland / BDS / 3.0 / Demos / Delphi.Net / CLR / Remoting / TCPService.dpr < prev    next >
Encoding:
Text File  |  2004-10-22  |  1.4 KB  |  32 lines
  1. program TCPService;
  2.  
  3. {%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.dll'}
  4. {%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.XML.dll'}
  5. {%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Runtime.Remoting.dll'}
  6. {%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.ServiceProcess.dll'}
  7. {%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.Configuration.Install.dll'}
  8. {%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\system.drawing.dll'}
  9.  
  10. uses
  11.   System.ServiceProcess,
  12.   System.Reflection,
  13.   uTCPIntf in 'uTCPIntf.pas',
  14.   uTCPService in 'uTCPService.pas' {uTCPService.TNTService: System.ServiceProcess.ServiceBase},
  15.   uTCPServInst in 'uTCPServInst.pas' {uTCPServInst.TNTServiceInstaller: System.Configuration.Install.Installer};
  16.  
  17. [assembly: AssemblyTitle      ('NT TCP Service')]
  18. [assembly: AssemblyDescription('NT TCP Service')]
  19. [assembly: AssemblyCompany    ('Ultimate Software, Inc.')]
  20. [assembly: AssemblyProduct    ('TCP Service Demo')]
  21. [assembly: AssemblyCopyright  ('⌐ 2003 Ultimate Software, Inc.')]
  22. [assembly: AssemblyTrademark  ('ULTIPRO')]
  23. [assembly: AssemblyVersion    ('1.0.0.0')]
  24.  
  25. {$R Ultimate.res}
  26.  
  27. [STAthread]
  28. begin
  29.   NTService := TNTService.Create;
  30.   System.ServiceProcess.ServiceBase.Run([NTService]);
  31. end.
  32.